home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tool-inc.zip / ADDSUB.INT < prev    next >
Text File  |  1989-06-02  |  430b  |  11 lines
  1. procedure iadd(var a: integer; b: integer);
  2. procedure isub(var a: integer; b: integer);
  3. procedure imult(var a: integer; b: integer);
  4. procedure idiv(var a: integer; b: integer);
  5. procedure radd(var a: real; b: real);
  6. procedure rsub(var a: real; b: real);
  7. procedure rmult(var a: real; b: real);
  8. procedure rdiv(var a: real; b: real);
  9. procedure rrange(var a: real; b,c: real);
  10. procedure irange(var a: integer; b,c: integer);
  11.